home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 15 Orphan Computers / VKY16K.SEQ < prev    next >
Text File  |  2019-04-13  |  6KB  |  135 lines
  1.    10   PLEASE NOTE-ALTHOUGH I HAVE BEEN USING
  2.    20   THIS PROGRAM FOR A COUPLE OF MONTHS AND
  3.    25   HAVE DEBUGED EVERY BUG I HAVE FOUND,I DO
  4.    30   NOT FEEL THAT IT HAS ALL THE BUGS OUT OF
  5.    35   IT YET(ALTHOUGH IT WORKS FINE FOR ME).
  6.    40   PLEASE TAKE NOTE OF ANY AND ALL BUGS AND
  7.    50   LEAVE ME AN EMAIL MESSAGE OF ANY YOU FIND.
  8.    60   THANK YOU.TERRY IMLER [73465,1635]
  9.    70   PS-REMOVE ALL LINES BEFORE LINE ONE HUNDRED
  10.    80   BEFORE USING THE PROGRAM
  11.   100   REM PARTI.6
  12.   110   POKE52,39:POKE56,39:POKE644,39:OPEN5,2,3,CHR$(6)
  13.   130   X=127:A=0:A$="":L=L:N=N:D=0:G=36878:R=198:N$=CHR$(0)
  14.   140   MB=9999:MT=24570:X1=0:M9=1:MX=MT:N=MX-900:MY=MT:MZ=MY
  15.   150   MU=MT:L=MB:F$="":A$=CHR$(13):M1$=A$+CHR$(18):Z$=""
  16.   160   Z1$="":Z2$="":Z3$="":Z4$="":M3$=A$+CHR$(31):M2$=A$+CHR$(30)
  17.   170   DIMF%(127),T%(138),X%(26)
  18.   180   T%(13)=13:T%(20)=8:F%(127)=20:F%(8)=20
  19.   190   FORJ=32TO95:T%(J)=J:F%(J)=J:NEXT:FORJ=65TO90:T%(J)=J+32:NEXT
  20.   200   T%(133)=3:T%(134)=16:T%(135)=17:T%(136)=19:T%(137)=21:T%(138)=22
  21.   210   FORJ=123TO126:F%(J)=J-64:NEXT:FORJ=97TO122:F%(J)=J-32:NEXT
  22.   220   F%(96)=32:F%(92)=17:F%(13)=13:F%(10)=17
  23.   230   F%(7)=1:POKEG,D:POKEG-3,R:GOSUB710:GOSUB830:GOSUB1230:GOTO320
  24.   260   TI$="000000"
  25.   270   IFTI>2000THENPOKEG,15
  26.   280   GET#5,A$:IFA$THENGOSUB530:GOTO340
  27.   290   GETA$:IFA$THENGOSUB530:GOTO380
  28.   300   GOTO270
  29.   310   IFX%(16)THEN260
  30.   320   GETA$:IFA$THEN380
  31.   330   GET#5,A$:IFA$=""THEN310
  32.   340   A=F%(ASC(A$)ANDX):IFA=1THENGOSUB530:GOTO320
  33.   350   PRINTCHR$(A);:IFKTHENPOKEL,A:L=L+1:IFL>NTHENGOSUB600
  34.   360   GOTO320
  35.   380   A=ASC(A$):IFA=92THENGOSUB790
  36.   390   IFA<137THENPRINT#5,CHR$(T%(A));:GOTO320
  37.   400   IFX%(9)THENIFA<139THENPRINT#5,CHR$(T%(A));:GOTO320
  38.   410   ONA-136GOSUB1360,1300,550,560,810
  39.   420   GOTO320
  40.   440   RESTORE:FORI=0TO6:READA:X%(I)=PEEK(A):NEXT:RETURN
  41.   450   RESTORE:FORI=0TO6:READA:POKEA,X%(I):NEXT:RETURN
  42.   460   DATA167,168,169,170,180,181,182
  43.   470   PRINT#5,CHR$(19);CHR$(19);
  44.   480   J=PEEK(667):FORI=0TO600:NEXT:IFPEEK(667)<>JTHEN480
  45.   490   GOTO440
  46.   500   GOSUB450:PRINT#5,CHR$(17);CHR$(17);:RETURN
  47.   510   GOSUB500:GOTO1230
  48.   520   REM *****
  49.   530   POKEG,15:FORI=0TO100:NEXT:POKEG,D:D=0:RETURN
  50.   540   REM *****
  51.   550   K=1:GOTO1250
  52.   560   K=0:GOSUB1240:IFX%(8)THEN630
  53.   570   RETURN
  54.   590   N=N+300:GOSUB530:GOTO500
  55.   600   GOSUB470:IFMX=N+900THEN590
  56.   610   IFMX=N+600THEND=5:GOTO590
  57.   620   IFMX=N+300THEND=10:GOTO590
  58.   630   IFX%(7)=0THEN810
  59.   640   GOSUB660:GOTO500
  60.   660   D=0:GOSUB530:IFX%(11)=0THENGOSUB710:IFX%(11)=0THENRETURN
  61.   680   IFL=MBTHENRETURN
  62.   690   J=L:L=L-1:FORA=MBTOL:PRINT#M9,CHR$(PEEK(A));:NEXTA:L=MB:M9=1:RETURN
  63.   710   Z4$="":PRINT"FILE NAME":INPUTZ4$:IFZ4$=""THENRETURN
  64.   720   IFX%(24)=0THENOPEN15,8,15:X%(24)=1
  65.   730   F$=Z4$:OPEN1,8,1,"0:"+F$+",S,W":GOSUB780
  66.   740   IFX%(25)<20THENX%(11)=1:RETURN
  67.   750   IFX%(25)=63THENCLOSE1:PRINTM1$;Z2$:GOTO710
  68.   760   X%(26)=ST:PRINTM1$;"ERROR":GOSUB470:STOP
  69.   770   K=0:X%(11)=0:GOTO320
  70.   780   INPUT#15,Z1$,Z2$,Z3$,Z4$:X%(25)=VAL(Z1$):RETURN
  71.   790   GOSUB470:GOSUB830:GOSUB1200:A=150:GOTO500
  72.   810   GOSUB470
  73.   820   D=0:GOSUB530:GOSUB830:GOTO950
  74.   830   A$=CHR$(157):N$=CHR$(31):PRINTM2$;"  MEMORY FRE=";MX-L
  75.   840   PRINT"1-AUTO/MAN DUMP -- ";N$;"M";A$;:IFX%(7)THENPRINT"A";
  76.   850   PRINTM2$;"2-DUMP FULL/EACH - ";N$;"F";A$;:IFX%(8)THENPRINT"E";
  77.   860   PRINTM2$;"3-CONFERENCE MODE- ";N$;"N";A$;:IFX%(9)THENPRINT"Y";
  78.   870   PRINTM3$;"4-DOWNLOAD (F5/F7) ";N$;"N";A$;:IFKTHENPRINT"Y";
  79.   880   PRINTM2$;"5-OPEN/CLOSE DISK- ";N$;"C";A$;:IFX%(11)THENPRINT"O";
  80.   890   IFX%(11)THENPRINTM1$;"FILE NAME",F$;
  81.   900   PRINTM3$;M3$;"6-BIG/SMALL BUFFER ";N$;"B";A$;:IFX%(12)THENPRINT"S";
  82.   910   PRINTM2$;"7-RENAME FILE";
  83.   920   PRINTM2$;"8-BUFFER TO PRINTER   9-BUFFER TO DISK";
  84.   930   PRINTM2$;"10-TIMER=N";A$;:IFX%(16)THENPRINT"Y";
  85.   935   IFX%(17)THENPRINTM2$;"UPLOAD ACTIVE";
  86.   940   PRINTM3$;:N$=CHR$(0):RETURN
  87.   950   PRINT"CR-RETURN TO PROGRAM"
  88.   960   A=15:INPUTA:IFA=15THEN510
  89.   970   IFA<1ORA>10THEN820
  90.   980   X%(A+6)=1-X%(A+6)
  91.   990   IFA<4THEN820
  92.  1000   ONA-3GOSUB1020,1030,1130,1060,1180,1170,1120
  93.  1010   GOTO820
  94.  1020   K=1-K:RETURN
  95.  1030   IFX%(11)THENGOTO710
  96.  1040   IFL<>MBTHENGOSUB680
  97.  1050   PRINT#1,CHR$(10):CLOSE1:X1=0:RETURN
  98.  1060   IFX%(11)THENGOSUB1040
  99.  1070   PRINTM2$;"CURRENT FILE NAME IS":PRINTF$
  100.  1080   A$="N":PRINTM1$;"RENAME FILE?(Y/N)":INPUTA$
  101.  1090   IFLEFT$(A$,1)<>"Y"THENRETURN
  102.  1100   A$="":PRINTM1$;"NEW NAME":INPUTA$
  103.  1110   IFA$THENPRINT#15,"R0:"+A$+"="+F$
  104.  1120   RETURN
  105.  1130   IFX%(17)THENX%(12)=1
  106.  1140   IFX%(12)=0THENN=MT-900:MX=MT:RETURN
  107.  1150   IFX%(11)<>0THENIFL>MB+2031THENGOSUB680
  108.  1160   MX=MB+2032:N=MX:RETURN
  109.  1170   GOSUB660:GOTO1190
  110.  1180   OPEN4,4:X%(14)=1:M9=4:GOSUB680:CLOSE4:GOTO1200
  111.  1190   L=J:IFX%(7)THENL=MB:RETURN
  112.  1200   PRINTM3$;"RESET BUF? (CR=N)":A$="":INPUTA$:IFLEFT$(A$,1)="Y"THENL=MB
  113.  1210   RETURN
  114.  1220   PRINTM2$;"STANDBY":RETURN
  115.  1223   PRINTM3$;"UP-FILE EMPTY":RETURN
  116.  1225   PRINTM3$;"FILE MARKER":RETURN
  117.  1230   PRINTM3$;"READY":RETURN
  118.  1240   PRINTM1$;"END ";
  119.  1250   PRINTM2$;"SAVING";M3$:RETURN
  120.  1300   GOSUB470:IFX%(12)=0THENX%(12)=1:GOSUB1150
  121.  1305   IFX%(17)THEN1340
  122.  1310   PRINT"UPLOAD FILE NAME":INPUTZ4$:IFZ4$=""THEN500
  123.  1320   OPEN3,8,3,"0:"+Z4$+",S,R":IFSTTHENPRINT"ERROR--":GOTO1395
  124.  1330   GOSUB1220
  125.  1340   GET#3,A$:A=ST:POKEMY,T%(ASC(A$+N$)):MY=MY-1
  126.  1345   IFMY<N+901THENX%(17)=1:GOSUB1230:GOTO500
  127.  1350   IFA=64ORA=66THENX%(17)=2:CLOSE3:GOSUB1230:POKEMY,10:GOTO500
  128.  1355   GOTO1340
  129.  1360   IFMZ=MYTHEN1390
  130.  1370   A=PEEK(MZ):MZ=MZ-1:IFA=10THEN1225
  131.  1375   PRINT#5,CHR$(A);:IFA=13THENRETURN
  132.  1380   IFMZ>MYTHEN1370
  133.  1390   MY=MT:MZ=MY:IFX%(17)=1THEN1340
  134.  1395   GOSUB1223:X%(17)=0:GOTO500
  135.